function rest = matA(n,term)


load funcbij;
load funchij;

rest=sparse(zeros(term*(n-1)));
for ii=1:term
    for jj=1:term
        rest((ii-1)*(n-1)+1:ii*(n-1),(jj-1)*(n-1)+1:jj*(n-1)) ...
            =matelt(bij{jj}{ii},hij{jj}{ii},n);
    end
end
